#!/usr/bin/perl
use locale;
open(FILEIN,"p96.fic"); 
# on ouvre le fichier qu'on va lire
open(FILEOUT, ">Dico-p96-fic.txt"); 
# on ouvre le fichier dans lequel on va écrire
%dico=();
while ($l=<FILEIN>) {
    my @motsparligne=split(/[\W]/,$l);
    foreach my $mot (@motsparligne) {
		if ($mot ne "") {
	    $dico{$mot}++;
		}
	}
}
foreach $mots ( sort keys(%dico) ) {
 print FILEOUT $mots, ":", $dico{$mots}, "\n";
}
close(FILEIN); # on ferme le fichier en lecture
close(FILEOUT);# on ferme le fichier en sortie